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Abstract 

This paper presents the integration into the GIPSY of Lucx's context calculus defined in Wan's 
PhD thesis. We start by defining different types of tag sets, then we explain the concept of context, 
the types of context and the context calculus operators. Finally, we present how context entities have 
been abstracted into Java classes and embedded into the GIPSY system. 
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1 Introduction 

Lucid ifTSl [B m El m represents a family of intensional programming languages that has several di- 
alects all sharing a generic counterpart, which we call the Generic Intensional Programming Language 
(GIPL) |[T2ll20l[T5l[T0,l . The GIPL is a functional programming language whose semantics was defined 
according to Kripke's possible worlds semantics Q. Following this semantics, the notion of context 
is a core concept, as the evaluation of expressions in intensional programming languages relies on the 
implicit context of utterance [ 12|. In earlier versions of Lucid, contexts could not be explicitly defined or 
used in expressions, nor used as first-class values in the language. A new dialect of Lucid, which is called 
Lucx (Lucid Enriched With Context) was introduced by Wan lfT9l . Lucx embraced the idea of context 
as first-class value and it also had a collection of context calculus operators defined, coalesced into a 
well-defined context calculus. However, the operational details of integrating Lucx into the GIPSY have 
not yet been defined, so these latest very important results are not integrated in our operational system. 

Problem Statement In her PhD thesis. Wan has set the basis of a context calculus and demonstrated 
how it could be integrated into the existing implementation of the GIPSY through the expression of 
context calculus operators as Lucid functions, and the simulation of contexts using Lucid finite streams. 
Such an implementation, though it provided a nice proof of concept, would eventually lead to a notori- 
ously inefficient implementation. What we need is to fully integrate the context calculus into the syntax 
of the GIPL, as well as to integrate its semantics into the run-time system. Achieving this would bring 
forth the first intensional language implemented to include contexts as first class value in its syntax and 
semantics. 

Proposed Solution Based on Wan's theory and the current architecture of the GIPSY framework lITOl 
(141 we refined and implemented the context calculus including the new syntactical constructs required 
for the language to be more expressive in terms of implicit and explicit context manipulation, and we em- 
bedded a context data type together with the corresponding tag set types into the GIPSY type system [11 J . 
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The introduction of such new constructs required adaptive modifications to our existing implementation, 
which are described in this paper. 

2 Tag Sets 

A context is essentially a relation between dimensions and tags, the latter being indexes used to refer to 
points in the context space defined over these dimensions. In Lucx, such a relation is represented using 
a collection of <dimension: tag> pairs |19|. In such a pair, the current position of the dimension is 
marked by the tag value, while properties of the tags, such as what ai^e valid tags in this dimension, are 
bound to the dimension they index. When a context is declared, a semantic check should be performed 
to determine whether a tag is valid in the dimension it is used. Therefore, we introduce the notion of a 
tag set, as a collection of all possible tags attached to a particular dimension, i.e. we introduce the notion 
of tag types. 

In earlier versions of Lucid programming languages, the tag set was assumed to be the ordered infinite 
set of natural numbers, and was never explicitly declared as such. However, as we explore more domains 
of application, natural numbers can no longer represent tag values sufficiently. For example, assume 
that we want to compute the gravity of certain planets in the solar system. We could define planet as 
our dimension; #planet returns the current tag in the planet dimension. We use the square brackets 
notation [planet :#planet] to represent a simple context lfT9l . as a collection of <diniension:tag> 
pairs. The result of the program should be a stream of gravity values. The evaluation of specific values 
in this stream depends on the specific context of utterance, such as gravity® [planet : 3] . 

If we set our focus onto the planets inside the current solar system, then up to our knowledge now, 
there is a finite number of planets, i.e. the tag set for the planet dimension is [1. .8]. We could 
also make the tag set of this dimension into the set {Mercury, Venus, Earth, Mars, Jupiter, 
Saturn , Uranus , Neptune} , where the tags are no longer integers representing the order of proximity 
to the Sun, but strings representing the names of the planets. Note that such a tag set could still be 
ordered by the order of proximity to the Sun, as represented here, or alphabetically. If we extend the 
dimension to all possible planets in the universe, then the number of tags would be infinite, and thus 
could not be enumerated. Note also that the order defined on the tag set is of importance, as basic 
operators such as f by and next rely on an ordered tag set. It should thus be possible to define an order 
on tag sets, and declaring a tag set as unordered would then restrict the set of operators applicable to 
streams defined on a dimensions with an unordered tag set. It is thus clear that the properties of natural 
numbers set-ordered and infinite-are not sufficient to include all the possibilities for all possible tag set 
types. Additionally, the tag value can actually be of string or other types, not only int. Thus, it is 
necessary to introduce the keywords "ordered/unordered", "finite/infinite" to determine the types of tag 
set associated with dimensions upon declaration. Note that more keywords might also be included in the 
future, here we only present those to the scope of our knowledge and the current application. Following 
are the definitions for those keywords when they are used to determine the type of a tag set. As tag sets 
are in fact sets, we define the following terms as of set theory ||8j |5l : 

Definition 1. Ordered Set: A set on which a relation R satisfies the following three properties : 

1. Reflexive: For any a G 5, we have aRa 

2. Antisymmetric: If aRb and bRc, then a = b 

3. Transitive: If aRb and bRc, then aRc 

Definition 2. Unordered Set: A set which is not ordered is called an unordered set. 
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Definition 3. Finite Set: A set / is called finite and more strictly, inductive, if there exists a positive 
integer n such that / contains just n members. The null-set is also called finite. 

Definition 4. Infinite Set: A set, which is not finite is called an infinite set. 

Out of backwards compatibility with previous versions of Lucid, we assume that the default tag set 
is the integers, and its order is as with the order of natural numbers. If other tag sets are to be applied, 
the programmer must specify them by explicitly specifying and/or enumerating the tag set and its order, 
as discussed further in this section. 

2.1 Tag Set Types 

In the following sections, the actual types of tag sets are rendered by providing their syntax in Lucx's 
implementation, followed by the applicability for these syntax rules, then some examples, and finally the 
implementation of set inclusion routines apphcable to all these tag types. 

2. 1. 1 Ordered Finite Tag Set 

For this type, tags inside the tag set are ordered and finite. Here we use Z to denote the set of all integers; 
S to denote the tag set. We define Z,M,p,e G Z as integers to denote the lower boundary (/), upper 
boundary (m), step {p) and any element {e) of the tag set when describing it syntactically. Also note that 
prev{e) returns the element previous to the current element under discussion. 

Syntax Rule 1. dimension <id>: ordered finite {<string>, <string>} 

• All the tag values inside the tag set are enumerated and their order is implicitly defined as the order 
in which they are enumerated. 

Syntax Rule 2. dimension <id>: ordered finite {/ to u} 

• S C Z = {e\e — prev(e) = I Al < e < u} 

Syntax Rule 3. dimension <id>: ordered finite {I to u step p} 

• ScZ = {e\e-prev{e)=pAl<e<uAp>0} 

• ScZ = {e\e-prev{e)=pAu<e<lAp<0} 

Example 1. The following examples correspond to the syntactic expressions listed above, respectively. 

• dimension d : ordered finite {rat, bull, tiger, rabbit} 

• dimension d : ordered finite {1 to 100} 

• dimension d : ordered finite {2 to 100 step 2} 

Set Inclusion 

• If it is in the first format of expression, then set inclusion returns true if and only if the given 
parameter is equal to one of the tag values inside the tag set as extensionally enumerated. 

• If the tag set is declared using the second format, then set inclusion returns true if and only if the 
given parameter is greater than or equal to the lower boundary and smaller than or equal to the 
upper boundary. 
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• If the third expression is applied, then set inclusion returns true if the given parameter para is 
greater than or equal to the lower boundary, and smaller than or equal to the upper boundary, if the 
step is possitive; or smaller than or equal to the lower boundary and greater than or equal to the 
upper boundary if the step is negative; and that {{para — I) mod ;?) = in both cases. 

2.1.2 Ordered Infinite Tag Set 

For this type, tags inside the tag set are ordered and infinite. Since the tag set is infinite, it cannot be 
enumerated. For now, we only consider subsets of integers. Note, in what follows INF- and INF+ stand 
for minus infinity and plus infinity respectively. 

Syntax Rule 4. dimension <id>: ordered infinite {/ to INF+} 

• ScZ = {e\e-prev{e) = lAl<e} 

Syntax Rule 5. dimension <id>: ordered infinite {/ to INF+ step p} 

• ScZ = {e\e-prev{e)=pAl<eAp>0} 

Syntax Rule 6. dimension <id>: ordered infinite {INF- to u} 

• 5 C Z = — prev{e) = I Ae <u} 

Syntax Rule 7. dimension <id>: ordered infinite {INF- to u step p} 

• S cZ = {e\e — prev{e) =pAe<uAp>0} 

Syntax Rule 8. dimension <j<i>: ordered infinite {INF- to INF+} 

• This represents the whole stream of integers, from minus infinity to plus infinity. 

Note that the default tag set is N+, which is also within this type. Either by leaving the tag set declaration 
part empty or specifying {0 to INF+}, they both refer to the set of natural numbers. 

Example 2. The following examples correspond to the syntactic expressions listed above, respectively. 



• 


dimension 


d : 


ordered 


infinite 


{2 to 


INF+} 


• 


dimension 


d : 


ordered 


infinite 


{2 to 


INF+ step 2} 


• 


dimension 


d : 


ordered 


infinite 


{INF- 


to 100} 


• 


dimension 


d : 


ordered 


infinite 


{INF- 


to 100 step 2} 


• 


dimension 


d : 


ordered 


infinite 


{INF- 


to INF+} 



Set Inclusion Although we call this type of set 'infinite', in the actual implementation, there should 
be a way to handle this 'infinity' to make it 'infinite' allowed by the available storage resources. For 
now we only consider Integer as the type for a tag value, thus the infinity is actually represented by 
either Integer . MIN.VALUE of Java for minus infinity or Integer . MAX.VALUE for plus infinity. The set 
inclusion method is defined and implemented as the following: 

• If the first expression is applied: then set inclusion method returns true if and only if the given pa- 
rameter is greater than or equal to the lower boundary and less than or equal to Integer . MAX_VALUE. 
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• If it is in the second format: then set inclusion method returns true if and only if the given parameter 
para is greater than or equal to the lower boundary and less than or equal to Integer . MAX_VALUE 
and that {{para — I) mod p) = 0. 

• If the third expression is used: then set inclusion method returns true if and only if the given param- 
eter is less than or equal to the upper boundary and greater than or equal to Integer . MIN VALUE. 

• If it is declared in the forth format: then set inclusion method returns true if and only if the 
given parameter para is less than or equal to the upper boundary and greater than or equal to 
Integer . MIN.VALUE and that {{u - para) mod p) = 0. 

• Finally, if it is in the fifth expression: then the set inclusion method returns true if and only if 
the given parameter is greater than or equal to Integer .MIN.VALUE and less than or equal to 
Integer . MAX_VALUE. 

2.1.3 Unordered Finite Tag Set 

Tags of this type are unordered and finite. 

Syntax Rule 9. dimension <id>: unordered finite {<string>, <strmg>} 
Example 3. The following example correspond to the syntactical expression above. 

• dimension d: unordered finite {red, yellow, blue} 

Set Inclusion The set inclusion method returns true if and only if the given parameter is equal to one 
of the tag values inside the tag set. 

2.1.4 Unordered Infinite Tag Set 

Tags of this type are unordered and infinite. 

Syntax Rule 10. dimension <id>: unordered infinite {<£■>} 

The <E> could be either intensional functions generating unordered infinite elements or imperative 
procedures such as Java methods to generate such elements. See the example below for a discussion. 

Example 4. Assume that we have a device to collect sound waves and it has a software interface to 
computers. And we have a getWaveO method defined somewhere, which returns all the sound waves 
that can be detected by the device. If we want to set the device working 'infinitely' (ideally) in the sea 
in order to filter the sound waves of sperm whales to keep track of their conditions, we would define our 
tag set as: 

{ while (true) { getWaveO; } } 

As this type of tag set is unordered and infinite, it's impossible to enumerate all the tag values in 
the tag set. The programmer has to provide a function to define all the possible tag values. Since some 
random number generator functions can also be considered valid for this type, the set inclusion can only 
be determined by the type of tag value. For example, if the random function generates only integers, then 
a tag value specified as any other type in the program should not be inside the tag set. 
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3 Context Calculus 

Context calculus operators are a set of operators performed on contexts. All the following definitions are 
recited from Wan's PhD thesis. We present here only an overview of the theory underlying the notion of 
context and its calculus for the unaware readers. For a complete description please refer to ||T9ll . 

Definition 5. Context: A context c is a finite subset of the relation: c C {{d,x)\d ^ DIM Ax G T}, where 
DIM is the set of all possible dimensions, and T is the set of all possible tags. 

3.1 Types of Context 

According to |fT9]| . context can be classified into two categories, which are simple context and a context 
set. 

3.1.1 Simple Context 

A simple context is a collection of <dimension : tag> pairs, where there are no two such pairs having 
the same dimension component. Conceptually, a simple context represents a point in the context space. 
A simple context having only one pair of <dimension : tag> is called a micro context. It is the building 
block for all the context types lITTlfTBll . 

Syntax Rule 11. [ <E>:<E>, <E>:<E>] 

Example 5. • [d : 1 , e : 2] 

3.1.2 Context Set 

A context set is a set of simple contexts. Context sets are also often named non-simple contexts. Context 
sets represent regions of the context space, which can be seen as a set of points in the context space, 
considering that the context space is discrete. Formally speaking, a non-simple context is a set of <d : x> 
mappings that are not defined by a function lfT6l . The semantics of context set has not been integrated 
into the Lucid programming language, yet, informally, as a context set can be viewed as a set of simple 
context, the semantic rules will apply on each element individually. 

Syntax Rule 12. {[<E>:<E>,. . . , <£■>:<£■>],. . . , [<E>:<E>, <E>:<E>]} 

Example 6. • { [x : 3 , y : 4 , z : 5] , [x : 3 , y : 1 , z : 5] > 

3.2 Context Calculus Operators 

In the following section, we provide the formal definition for the context calculus operators on sim- 
ple context and context set; and the algorithm for implementing those operators. The operators are 
isSubContext, difference, intersection, projection, hiding, override, and union. 

Definition 6. isSubContext 

• If Ci and C2 are simple contexts and every micro context of Ci is also a micro context of C2, then 
Ci isSubContext C2 returns true: Ci = {mi, . . . where m,- is any micro context inside Ci. If 
m, e C2, then Ci isSubContext C2 returns true. Note that an empty simple context is the sub- 
context of any simple context. Also note that as the concept of subset in set theory, Ci could be 
the proper subset of C2, or Ci could be equal to C2. 
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• If Si and 52 are context sets and every simple context of is also a simple context of S2, then 
5i isSubContext ^2 returns true, = {Ci , . . . ,C,} where C,- is any simple context inside Si. If 
Q G 52, then 5i isSubContext 52 returns true. Note that an empty context set is the sub-context 
of any context set. Also note that as the concept of subset in set theory, 5i could be the proper 
subset of 52, or 5i could be equal to 52. 

Example 7. Example for isSubContext on both simple context and context set. 

• [d:l,e:2] isSubContext [d: 1 ,e : 2,f : 3] = true 

• [d:l,e:2] isSubContext [d:l,e:2] =true 

• isSubContext [d: 1 ,e :2] = true 

• {[d:l,e:2] , [f :3]> isSubContext {[d:l,e:2] , [f :3] , [g:4]} = true 

• {[d:l,e:2] , [f :3]> isSubContext {[d:l,e:2] , [f :3]} = true. 



boolean isSubContext ( SimpleContext cl , SimpleContext 


c2) 


{ 




if(cl.size == 0) 




return true ; 




else { 




boolean flag ; 




for(int i = 0; i < cl . size ; i++){ 




flag = false ; 




for(int j = 0; j < c2.size; j++){ 




if (c2 . micro_context ( j ) == cl . micro_context ( i 


)){ 


flag = true ; 




break ; 




} 




} 




if (flag==false) 




break ; 




} 




return flag ; 




} 




} 





Listing 1: Algorithm for implementing isSubContext on simple context 



Definition 7. difference: 

• If Cl and C2 are simple contexts, then Ci difference C2 returns a simple context that is the 
collection of all micro contexts which are members of Ci , but not members of C2: Ci = {mi , . . . m,} 
where m; is any micro context inside Ci. Ci difference C2 = {m;|m,- ^ C2}. Note that if Ci 
isSubContext C2 is true, then the returned simple context should be the empty context. Also 
note that it is vaUd to "differentiate" two simple contexts that have no common micro context; the 
returned simple context is simply Ci. 

• If 5i and 52 are context sets, this operator returns a context set 5, where every simple context C G 5 
is computed as Ci difference C2, Ci G 5i, C2 & S2: S = Si difference 52 = {Ci difference 
C2IC1 G5iAC2G52}. 
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boolean isSubContext ( ContextSet 


Si , i_ontextoet sz ) 


r 




II ^,S1 . olZc U ) 




return true ; 




el s e { 




boolean flag; 




lort^ini 1 — u, 1 si.fsizc. 


1 + + )\ 


finer — fftlcp " 




for(int j = 0; j <C s2.size 


' J++)i 


if(s2 . simple_context(j ) = 


= sl . simple_context(i)){ 


il CI fT — I'r'iiA " 




break ; 




1 
/ 




} 




if(flag == false) 




break ; 




} 




return flag ; 




} 




} 





Listing 2: Algorithm for implementing isSubContext on context set 



Example 8. Example for difference on both simple context and context set. 

• [d:l,e:2] difference [d:l,f :3] = [e:2] 

• [d : 1 , e : 2] difference [d : 1 , e : 2 , f : 3] =0 

• [d:l,e:2] difference [g:4,h:5] = [d:l,e:2] 

• {[d:l,e:2,f :3] , [g:4,h: 5] > difference { [g:4,h: 5] , [e:2]} = 
{[d:l,e:2,f :3] , [d:l,f :3] , [g:4,h:5]] 



SimpleContext dif f erence ( SimpIeContext cl 


, SimpleContext c2){ 


SimpleContext result=cl . clone () ; 




for(int 1 = 0; i < cl . size ; i++){ 




for(int j = 0; j < c2.size; j++){ 




if(c2. micro_context(j )==cl . micro- 


context ( i ) ) { 


result . remove (cl . micro_context( 


i)); 


} 




} 




} 




return result ; 




} 





Listing 3: Algorithm for implementing difference on simple context 



Definition 8. intersection 

• If Cl and C2 are simple contexts, then Ci intersection C2 returns a new simple context, which 

is the collection of those micro contexts that belong to both Ci and C2: Ci = {mi nii} where m, 
is any micro context inside Ci: C\ intersection C2 = {mi\mi € Ci Am, € C2}. Note that if Ci 
and C2 have no common micro contexts, the result is an empty simple context. 
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ContextSet difference ( ContextSet si, ContextSet s2){ 
ContextSet result; 
for(int i = 0; i < si. size; i++){ 
for(int j = 0; j < s2.size; j++){ 

SimpleContext tempResult = (iifference (si . simple_context(i) , s2 . simple_context(j ) 

) ; 

if ( tempResult . size != 0) 
result . add ( tempResult ) ; 

} 

} 

return result ; 

} 



Listing 4: Algorithm for implementing difference on context set 



• If 5i and 52 are context sets, then the resulting intersection set S = Si intersection 52 = {Ci 
intersection C2IC1 G 5i AC2 € 52} 

Example 9. Example for intersection on both, simple context and context set: 

• [d:l,e:2] intersection [d:l] = [d:l] 

• [d:l,e:2] intersection [g:4,h:5] =0 

• {[d:l,e:2,f :3] , [g:4,h:5]} intersection {[g: 4, h: 5] , [e:2]} = 
{[e:2] , [g:4,h:5]} 



SimpleContext in ter s ec ti o n ( SimpleContext cl , SimpleContext c2){ 
return difference (cl , dif f erence (cl , c2)); 

} 



Listing 5: Algorithm for implementing intersection on simple context 



ContextSet i n t er s e c t i o n ( ContextSet si, ContextSet s2){ 
ContextSet result; 
for(int i = 0; i < si. size; i++){ 
for(int j = 0; j < s2.size; j ++) 

{ 

SimpleContext tempResult=intersection(sl . simple_context(i) , s2. simple_context( 

j)); 

if ( tempResult . size != 0) 
result . add ( tempResult ) ; 

} 

} 

return result ; 

} 



Listing 6: Algorithm for implementing intersection on context set 



Definition 9. projection: 
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• If C is a simple context and D is a set of dimensions, this operator filters only those micro contexts 
in C that have their dimensions in setD. C projection D = {m|m € CA(i/m(m) € D}. Note that 
if there's no micro context having the same dimension as in the dimension set, the result would be 
an empty simple context. dim{m) returns the dimension of micro context m. 

• The projection of a context set and a dimension set is a context set, which is a collection of all the 
simple contexts project the dimension set. If 5 is a context set, Z) is a dimension set; S pro j ection 
D = {n\n = C proj ection D AC G S}. Note that if there's no common dimension in every simple 
context and the dimension set, the result is an empty context set. 

Example 10. Example of projection on both simple context and context set: 

• [d:l,e:2,f :3] projection {d, f> = [d:l,f :3] 

• {[d:l,e:2,f :3] , [g:4,h:5] , [f :4] } projection {e,f ,h} = 
{[e:2,f :3] , [h:5] , [f :4]> 



SimpleContext proj ection ( SimpleContext c 


DlmenslonSet dlmSet){ 


SimpleContext result; 




for(int 1 = 0; 1 < dlmSet . size ; l++){ 




for(int j = 0; j < c.slze; j++){ 




if(c. mlcro_context(j ) . dimension == 


dImSet . dimension ( 1 ) ) 


result . add(c . mlcro_context(j )) ; 




} 




} 




return result ; 




} 





Listing 7: Algorithm for implementing projection on simple context 



ContextSet proj ection ( ContextSet s, DlmenslonSet dlmSet){ 
ContextSet result; 
for(int 1=0; 1 < s.slze; !++){ 

SimpleContext tempResult=proj ection ( s . simple .context ( 1 ) , dImSet ) ; 
if ( tempResult . size != 0) 
result . add ( tempResult ) ; 

} 

return result ; 

} 

Listing 8: Algorithm for implementing projection on context set 



Definition 10. hiding: 

• If C is a simple context and D is a dimension set, this operator is to remove all the micro contexts in 
C whose dimensions are in Z): C hiding D = {m\m EC A dim{m) ^D}. Note that C proj ection 
D UC hiding £) = C. 

• For context set S, and dimension set D, the hiding operator constructs a context set S' where S' 
is obtained by hiding each simple context in S on the dimension set D: S' = S hiding D = {C 
hiding D|CgS}. 
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Example 11. Example for hiding on both simple context and context set: 

• [d:l,e:2,f:3] hiding {d,e}= [f:3] 

• [d:l,e:2,f :3] hiding {g,h}= [d: 1 ,e :2,f :3] 

• [d:l,e:2,f :3] hiding{d,e,f} = 

• {[d:l,e:2,f :3], [g:4,h:5] , [e :3] } hiding {d.e} = { [f :3] , [g:4,h:5]} 



SimpleContext hiding ( SimpleContext c, DimensionSet dimSet){ 
return ( difference (c , projection (c , dimSet))); 

} 

Listing 9: Algorithm for implementing hiding on simple context 



ContextSet hiding ( ContextSet s, DimensionSet dimSet){ 
ContextSet result; 
for(int i = 0; i < s.size; i++){ 

SimpleContext tempResult=hiding ( s . simple_context ( i ) , dimSet); 
if ( tempResult . size != 0) 
result . add ( tempResult ) ; 

} 

return result ; 

} 

Listing 10: Algorithm for implementing hiding on context set 



Definition 11. override: 

• If Ci and C2 are simple contexts, then Ci override C2 returns a new simple context C, which 
is the result of the conflict-free union of Ci and C2, as defined below: C = Ci override C2 = 

{m\{m G Ci f\dim{m) ^ dim{C2))Vm G C2}. 

• For every pair of context sets 5i, ^2, this operator returns a set of contexts S, where every context 
C £ S is computed as Ci override C2; Ci G 5i, C2 E S2: S = Si override 52 = {Ci override 

C2IC1 G51AC2GS2}. 

Example 12. Example of override on both simple context and context set: 

• [d : 1 , e : 2 , f : 3] override [e : 3] = [d : 1 , e : 3 , f : 3] 

• [d:l,e:2,f :3] override [e:3,g:4] = [d: 1 ,e :3,f : 3,g:4] 

• {[d:l,e:2] , [f :3] , [g:4,h: 5] } override { [d: 3] , [h:l]} = 
{[d:3,e:2] , [d:l,e:2,h:l] , [f :3,d:3] , 

[f :3,h:l] , [g:4,h:5,d:3] , [g:4,h:l]} 



Definition 12. union: 
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SimpleContext override ( SimpleContext cl , SimpleContext c2){ 
SimpleContext result; 
boolean flag = false; 

//keep the micro contexts whose dimensions is in c2 , but not in cl 
SimpleContext uniqueMCInC2=c2 . clone () ; 
for(int i = 0; i < cl . size ; i++){ 
for(int j = 0; j < c2.size; j++){ 

if (cl . micro_context(i) .dimension == c2. micro_context(j ) .dimension)! 
flag = true ; 

result .add(c2. micro_context(j )) ; 
uniqueMCInC2 .remove(c2 . micro_context(j )) ; 
} 

} 

if ( flag == false ) 

//Add the micro contexts in cl with unique dimensions 
result . add (cl . micro_context(i)) ; 
flag = false ; 

} 

for(int k = 0; k < uniqueMCInC2 . size ; k++){ 

//Add the micro contexts in c2 with unique dimensions 
result . add( uniqueMCInC2 .micro_context(k)); 

} 

return result ; 

} 

Listing 11: Algorithm for implementing override on simple context 



ContextSet override ( ContextSet 


si , ContextSet s2 ) { 


ContextSet result; 




for(int i = 0; i < si. size; 


i++){ 


for(int j = 0; j < s2.size 


; j++){ 


SimpleContext tempResult 


= override(sl . simple_context(i) , s2. simple_context(j)) ; 


if ( tempResult . size != 0) 




result .add(tempResult) 




} 




} 




return result ; 




} 





Listing 12: Algorithm for implementing override on context set 



• If Cl and C2 are simple contexts, then C\ union C2 returns a new simple context C, for every 
micro context m in C: m is an element of C\ or m is an element of C2'. C\ union C2 = {m\m G 
Cl V m G C2 A m ^ Cl }. Note that if there is at least one pair of micro contexts in Ci and C2 sharing 
the same dimension and these two micro contexts are not equal then the result is a non-simple 
context, which can be translated into context set: For a non-simple context C, we construct the 
set Y = {yd = C projection {d}\d € dim{C)}. Denoting the elements of set 7 as 3^1, .. . ,yp, 
we construct the set S{C) of simple contexts: S{C) = {mi override m2 override . . . override 
rnp\mi G jl Am2 G 3^2 A . . .m^ G yp}, The non-simple context is viewed as the set S{C). It is easy 
to see that 5(C) = {s £ S\dim{s) = dim{C) hsCC] 

• As described earlier for the union operator performing on simple contexts, the result could be a 
non-simple context. If we simply compute union for each pair of simple context inside both context 
sets, the result may be a set of sets, in other words, higher-order sets Iil9il . Due to unnecessary 
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semantic complexities, we should avoid the occurrence of such sets, thus we define the union of 
two context sets as following to eliminate the possibility of having a higher-order set. If Ci and C2 
are context sets, then C = Ci union C2 is computed as follows: Di = {dim{m) Am £ Ci},D2 = 
{dim{m) Am G C2},D3 = D\ P\D2. 

1. Compute Xi :X\ = {mi\J{mj hiding D3) Am,- € CI Amy G C2} 

2. Compute X2 : X2 = {mj\J{mi hiding D3) A m,- G CI A my G C2} 

3. The result is: C = Xi U^2 

Example 13. Example of union on both simple context and context set: 

• [d : 1 , e : 2] union [f : 3 , g : 4] = [d : 1 , e : 2 , f : 3 , g : 4] 

• [d:l,e:2] union [d:3,f :4] = [d: 1 ,d: 3 ,f :4] <^ -[ [d: 1 ,f :4] , [d:3,f :4] } 

• {[d:l,e:2] , [g: 4,h: 5] } union { [g: 4,h: 5] , [e:3]> = 
{[d:l,e:2] , [g:4,h:5] , [g:4,h:5,d:l] , [e:3,d:l] , [e:3]} 

4 Implementation of Context Calculus in the GIPSY 

In order to execute a Lucid program, all the SIPL (Specific Intensional Programming Language) ll20l 
[TOl ASTs (abstract syntax tree) are translated into their GIPL counterparts using semantic translation 
rules establishing the specific-to-generic equivalence between the two languages |[T2l l20l [TSl ITOll . The 
translated AST, together with the dictionary EOl \W \ are then fed to the Execution Engine, namely the 
GEE I1I2I [TOl (9l for the runtime execution. However, this translation approach cannot be easily adopted 
by Lucx. There's no such object as a context in GIPL and also the translation for context calculus 
operators would inevitably involve in recursive function calls, which are flattened before processing by 
the GEE. As the notion of context is actually an essential concept for the Lucid programming language 
and we already have a type system in the GIPSY [1 1 J, it is necessary and possible to keep the context as 
one of the GIPSY types in the type system. By defining this class, the context calculus operators can be 
implemented as member methods, which are going to be called at runtime by the GEE as it traverses the 
AST of Lucx and encounters those operators. In order to call those methods, the engine has to instantiate 
the context objects first. As stated earlier, a context is a collection of <dimension : tag> pairs. During 
the instantiation, a semantic checking must be performed to verify if the tag is within the valid range 
of the dimension tag set. Thus, in order to implement the context calculus operators, we first have to 
introduce the tag set classes into the GIPSY. 

4.1 Adding Tag Set Types into the GIPSY Type System 

As stated earlier in Section [2j there are four kinds of tag sets. They are organized as shown in Figure [T] 
The TagSet class is an abstract class and it's the parent of all of tag set classes. It has several data 
fields to keep the general attributes of tag sets, and it also has place-holder methods for certain com- 
mon operators among all the tag sets such as equality method equals () and the set inclusion method 
isInTagSet () . There is also a group of interfaces for keeping the type information, for example, the 
class OrderedFiniteTagSet should implement the lOrdered and IFinite interfaces. Such mecha- 
nism also provides the facility of adding and defining proper operators into the proper tag set classes. 
Such as getNext (poTag) , which takes a tag object as parameter and returns the next tag value in the 
dimension, should be valid only for ordered sets. Then only the tag set classes implement the ordered 
interface should give the concrete implementation for this method. 
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Context union ( SimpleContext cl , SimpleContext c2){ 
//Note that the return type is generic 
//Assume [f:l, e:l, d:2] union [e:2, d:l, t:4] 
SimpleContext resultl ; 
ContextSet result2; 
boolean isContextSet = f alse ; 
for(int i = 0; i < cl . size ; i++){ 
for(int j = 0; j < c2.size; j++){ 

if ( cl . micro_context ( i ). dimension == c2 . micro _c on text ( j ). dimension &c& cl . 
micro _c on text ( i ) != c2 . micro .context ( j )) { 
// [ e : 1 , d : 2 ] union [ e : 1 ] is a simple context : [ e : 1 , d : 2 ] 
isContextSet = true ; 
break ; 

} 

} 

if ( i s C on te X t S e t == true) 
break ; 

} 

if ( isContextSet == false){ 

//No dimension is common, result is the combination cl and c2 . 
fDr(int i = 0; i < cl . size ; i++){ 
resultl .add(cl . micro_context(i)) ; 

} 

for(int j = 0; j < c2.size; j++){ 
resultl .add(c2. micro_context(j )) ; 

} 

//remove duplicates e.g. [ e : 1 , e : 1 , d : 1 ] becomes [ e : 1 , d : 1 ] 
resultl . removeDuplicateContext ; 
return resultl ; 

} 

else { 

//There are common dimensions , the result is a non— simple context 
/ / A function is called to translate it into a context set 
result2 = translateContextSet (cl , c2) ; 
result2 . removeDuplicateContext () ; 
return result2 ; 

} 

} 

Listing 13: Algorithm for implementing union on simple context 



4.2 Adding Context into the GIPSY Type System 

As described in Section[2j there are simple context and context set under the generic context type. We have 
iContextType data field in the GIPSYContext class to keep this information. oSet is the actual con- 
tainer of either micro contexts (for simple context) or simple contexts (for context set). The Dimension 
class has an object of type of GIPSYIdentif ier called oDimensionName to specify its name and 
oTagSet to keep the information of the tag set attached to it. It also has a reference oCurrentTag, 
which is set to the current tag value inside the dimension, by adding this field, the notion of micro 
context can be expressed, since micro context is nothing but a pair of <dimension : tag> and if we 
introduce another type of micro context, there would be data redundancy because it is going to be used 
only when constructing a simple context. Therefore, to sum up, a simple context is represented by a 
collection of Dimension with oCurrentTag specified and a context set is represented by a collection of 
GIPSYContext objects, with the iContextType set to SIMPLECONTEXT. Figure |2] shows the structure 
of the GIPSYContext and related classes. 
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ContextSet t r an s 1 a te C on t ex t S e t ( SimpIeContcxt pCl , SimpleContext pC2){ 
// collection of micro contexts in pCl having common dimensions 
Vector commonMC 1 , conimonMC2 ; 

//collection of micro contexts in pCl having no common dimension 
Vector uniqueMCl , uniqueMC2 ; 
//[e:l , e:2] or [d:l , d:2] 
Vector interMicroContext_i ; 

//collection of interMicroContext A : {[e:l, e :2] ,[d: I , d:2]} 
Vector interMicroContext ; 

//{[e:l, d:l], [ e : 1 , d:2], [ e : 2 , d : 1 ] , [e:2, d:2]} 
ContextSet commonCombination ; 
//{[f:l, e:l, d:l, t:4]...} 
ContextSet result ; 

for(int i = 0; i < pCl.size; i++){ 
for(int j = 0; j < pC2.size; j++){ 

if(pCl. micro_context(i) . dimension ==pC2 . micro_context(j ) . dimension ){ 
commonMCl . add (pCl . micro_context{i)) ; 
commonMC2. add (pC2 . micro_context(j )) ; 
interMicroContext_i . add (pCl .micro_context(i)); 
interMicroContext-i . add (pC2 . micro_context(j )) ; 
interMicroContext . add( interMicroContext_i) ; 
break ; 

} 

} 

} 

//build commonCombination {[e:l, d : 1 ] , [ e : 1 , d:2]...} 

//pointer for combining all the possible micro contexts in interMicroContext 
int i n i p o s i t i o n =0; 

//any simple context element of the context set commonCombination 
SimpleContext midReslt ; 

buildCommonCombination ( interMicroContext , commonCombination, midResult , 

iniposition ); 
uniqueMCl = getUniqueMCs ( cl , commonMCl); 
uniqueMC2=getUniqueMCs ( c2 , commonMC2) ; 
//build the final result {[f:l, e:l, d:l, t:4]...} 
result = buildAllCombination (uniqueMCl ,uniqueMC2 , commonCombination) ; 
return result ; 



Listing 14: Algorithm for implementing helping method translateContextSet for union on simple 
context 



4.3 Semantic Checking for Context Type 

The GIPSY is equipped with both static (compile-time) and dynamic (run-time) type checking mech- 
anisms. With the addition of the above-defined GIPSYContext, Dimension and TagSet classes, the 
existing static and dynamic semantic checkers are extended in the occurence of these types being com- 
puted by the compiled/executed Lucx programs. The sections that follow provide discussions related to 
the introduction of such static/dynamic semantic checks in the compiler and run-time system. 

4.3.1 Validity of Tag Value Inside a Context 

A context is a relation between a dimension and a tag. When a context expression is specified, it always 
contains one or more [dimension : tag] pairs. As the tag is the index of a dimension to mark a particular 
position for evaluation, it is necessary to check first if the tag is part of the valid tags for this dimension. 
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void buildCommonCombination ( Vector pInterMicroContext , ContextSet result, 

SimpleContext pMidResult , int pPosition){ 
//Passing by reference is used, thus void the return type 
if (pPosition== pInterMicroContext . size){ 

//Finish one path of combination: eg.[e:l, d:2] 

result . add ( pMidRc suit . clone ()) ; 

//Prepare to start another way of combination: 

//eg. if pMidResult=[e : 1 , d:l], then after this, pMidResult=[e : 1 ] 
//waiting for the construction of pMidResult =[ e : 1 , d:2] 
pMidResult . removeElement ( pMidResult . lastElement () ) ; 
return ; 

} 

else { 

// Constructing the po s s ible comb i n a tion 

Vector tempSC = plnterMicroContext . elementAt(position) ; 

position + + ; 

for(int i = 0; i < tempSC.size; i++){ 

MicroContext tempMC = tempSC . elementAt ( i ) ; 
pMidResult . add (tempMC) ; 

//Call buildCommonCombination to finish one path of combination 
//eg: if pMidResult=[e : 1 ] , the call would add [d:l], 
//thus making pMidResult=[e : 1 , d:l] 

buildCommonCombination ( pInterMicroContext , result, pMidResult, pPosition); 

} 

if (pMidResult. size !=0){ 

// // no micro context left, the recursive call ends. 

//Preparing for the next combination: 

//eg. if pMidResult =[ e : 1 ] , this operation clears it, 
//waiting for the next path of [e:2,...] 
pMidResult . removeElement ( pMidResult . lastElement () ) ; 
return ; 

} 

} 

} 

Listing 15: Algorithm for implementing helping method buildConmonCombination for union on 
simple context 



in other words, that it is an element of the tag set attached to this dimension. This can be resolved by 
calUng the set inclusion method defined for each tag set. When the tag expression is simply a constant or 
a literal, this checking is performed at compile time by traversing the AST and calling the set inclusion 
method. When the tag expression is complex, the semantic checking should be delayed to runtime by 
the execution engine to compute the resulting values and subsequently do the semantic checking when it 
tries to instantiate the corresponding GIPSYContext object. 



4.3.2 Validity of Operands for Context Calculus Operators 

As defined earlier, the context calculus operators have some semantic restrictions on what are the valid 
operands, such as the union operator requires its operands either to be both of simple contexts or both 
of context sets. When the tag expressions are constants or literals, such checking is to be performed at 
compile time by traversing the AST and get the type of contexts. If the tag expressions are complex, this 
checking is deferred to runtime by the engine. 
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ContextSet build AllCombination ( Vector pUniqueMCl , Vector pUniqueMC2 , ContextSet 
pCommonCombination ) { 
ContextSet result ; 

for(int i = 0; i < pCommonCombination . size ; i++){ 

SimpleContext tempSC=pCommonCombination . simple_context(i) ; 
for(int p = 0; p < pUniqueMCl . size ; p++){ 
// eg . tempMC=[f : 1 ] 

MicroContext tempMC=pUniqueMCl . elementAt(p) ; 

//insert [f:l] before [d:l, e:l] etc. 
tempSC . insertElementAt (tempMC , p) ; 

} 

for(int q = 0; q < pUniqueMC2 . size ; q++){ 
// eg . tempMC=[ t :4] 

MicroContext tempMC=pUniqueMC2 . elementAt (q) ; 
//append [t:4] after [d:l, e : 1 ] etc. 
tempSC . add (tempMC) ; 

} 

result . add(tempSC) ; 

} 

return result ; 

} 

Listing 16: Algorithm for implementing helping method buildAllCombination for tmion on simple 
context 



Vector getUniqueMCs ( SimpleContext pSC, Vector pMicroContext_p ) { 
Vector microContext_l ; 
boolean picked=false ; 
for(int p = 0; p < pSC.size; p++){ 

MicroContext tempMCl=pSC. micro_context (p) ; 
for(int q = 0; q < pMicroContext_p . size ; q + + ){ 

MicroContext tempMC2=pMicroContext_p . elementAt(q) ; 
if (tempMC 1 == tempMC2){ 
picked=true ; 
break ; 

} 

} 

if(picked==false){ 

microContext_l . add (tempMCl ) ; 

} 

else 

picked=false ; 

} 

return microContext_l ; 



Listing 17: Algorithm for implementing helping method getUniqueMCs for union on simple context 



5 Conclusion 

By introducing contexts as first-class values, a set of context calculus operators are allowed to be per- 
formed on the context objects to provide us the facility of constructing and manipulating contexts in 
different application domains in the GIPSY. As we abstract the context into an object, the essential re- 
lation of dimension and tag is also properly and more completely defined by introducing tag set types. 
Since we have the GIPSY type system containing all the possible data types in Lucid, context, as one 
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ContextSet union ( ContextSet si, ContextSet s2){ 
DimensionSet interDimSet ; 
for(int i = 0; i < si. size; i++){ 
for(int j = 0; j < s2.size; j++){ 

for(int k = 0; k < si . simple_context ( i ) . size ; k++){ 
for(int 1 = 0; 1 < s2 . simple_context ( j ) . size ; l++){ 

if(s2. simple_context(j ) . micro_context(l)== si . simple_context(i) . 
micro_context(k)) 
interDimSet. add(sl .simple_context(i).micro_context(k)); 

} 

} 

} 

} 

ContextSet XI; 

for(int i = 0; i < si. size; i++){ 
for(int j = 0; j < s2.size; j++){ 

Xl.add(union(sl . simple_context(i) , hiding(s2. simple_context(j) , interDimSet))) 

} 

} 

ContextSet X2; 

for(int j = 0; j < s2.size; j++){ 
for(int i = 0; i < si. size; i++){ 

X2 .add(union(s2. simple_context(j) , hiding(sl . simple_context(i) , interDimSet))) 

} 

} 

for(int t = 0; t < X2.size; t++){ 
XI . add (X2 . simple_context(t)) ; 

} 

XI . removeDuplicateContext ; 
return XI ; 

} 

Listing 18: Algorithm for implementing union on context set 



of the first class objects, is taken as a standard member of the type system. By giving the Java class 
representation for context, the context calculus operators have been implemented as member functions 
inside the GIPSYContext class. 



6 Future Work 

The context calculus operators implemented in the GIPSYContext class have already been fully tested 
using JUnit [6]. The next step is to make them completely executable at run-time on the GEE side. The 
GEE evaluates Lucid expressions by traversing the ASTs provided by the compilers. Thus, in order to 
compute the context calculus, we have to make the context and context calculus nodes are recognizable 
by the engine. When a context calculus node is encountered, it can be evaluated by instantiating a context 
object and calling the member function defined. 
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TagSet 

■expressionType 



+equals() 
+isInTagSet() 




OrderedlnflniteTagSet 



■upper 
■lower 
■step 



OrderedFiniteTagSet 



■upper 
■lower 
■step 

■enumeratedElements 



((interface)) 
Ordered 



+getPrevious() 
+getNext() 



Unordered FiniteTagSet 



■enumeratedElements 



SI xz 



:<interface» 
Inilnite 



«interface» 
Finite 



+getAllElements() 



UnorderedlnfiniteTagSet 



■functionEnumcralion 



«interface» 
Unordered 



Figure 1 : Tag Set Type Classes 



-oSet : Vector 
-iContextType : int 



GIPSYContext 



■•■equalsO : bool 

■isSubContext(in pcontext : GIPSYContext) 
■differenc6(in pcontext ; GIPSYContext) 

■(■intersection(in pcontext : GIPSYContext) 

-t-projection(in pdimSet) 

-t-hiding(in pdimSet) 

-t-override(in pcontext : GIPSYContext) 

-t-union{ln pcontext : GIPSYContext) 



Dimension 



■oDimensionName : GIPSYIdentifier 
■oDimensionTags : TagSet 
■cCurrentTag : GIPSYType 



GIPSYIdentifier 



TagSet 



GIPSYType 



Figure 2: GIPSYContext class 
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